home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Stacks / Hyper Education / Organizational Aids / ReportCard / ReportCard Stack / background_3056.txt < prev    next >
Encoding:
Text File  |  1988-04-19  |  6.3 KB  |  280 lines
  1. -- background: 3056 from stack: in
  2. -- bmap block id: 4331
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 10 (field)
  9. -- low flags: 00
  10. -- high flags: 0002
  11. -- rect: left=35 top=74 right=86 bottom=139
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 10
  17. -- style flags: 0
  18. -- line height: 13
  19. -- part name: Last
  20.  
  21.  
  22. -- part 23 (field)
  23. -- low flags: 00
  24. -- high flags: 0002
  25. -- rect: left=142 top=74 right=86 bottom=246
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 10
  31. -- style flags: 0
  32. -- line height: 13
  33. -- part name: FIRST
  34.  
  35.  
  36. -- part 26 (field)
  37. -- low flags: 00
  38. -- high flags: 0002
  39. -- rect: left=115 top=93 right=105 bottom=163
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 3
  44. -- text size: 9
  45. -- style flags: 0
  46. -- line height: 12
  47. -- part name: I.D.
  48.  
  49.  
  50. -- part 1 (field)
  51. -- low flags: 00
  52. -- high flags: 0002
  53. -- rect: left=310 top=137 right=160 bottom=506
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 0
  57. -- font id: 3
  58. -- text size: 9
  59. -- style flags: 0
  60. -- line height: 12
  61. -- part name: Social Studies
  62.  
  63.  
  64. -- part 2 (field)
  65. -- low flags: 00
  66. -- high flags: 0002
  67. -- rect: left=310 top=163 right=188 bottom=505
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 0
  71. -- font id: 3
  72. -- text size: 9
  73. -- style flags: 0
  74. -- line height: 12
  75. -- part name: SCIENCE
  76.  
  77.  
  78. -- part 3 (field)
  79. -- low flags: 00
  80. -- high flags: 0002
  81. -- rect: left=311 top=191 right=216 bottom=507
  82. -- title width / last selected line: 0
  83. -- icon id / first selected line: 0 / 0
  84. -- text alignment: 0
  85. -- font id: 3
  86. -- text size: 9
  87. -- style flags: 0
  88. -- line height: 12
  89. -- part name: HEALTH
  90.  
  91.  
  92. -- part 4 (field)
  93. -- low flags: 00
  94. -- high flags: 0002
  95. -- rect: left=60 top=188 right=212 bottom=252
  96. -- title width / last selected line: 0
  97. -- icon id / first selected line: 0 / 0
  98. -- text alignment: 0
  99. -- font id: 3
  100. -- text size: 9
  101. -- style flags: 0
  102. -- line height: 12
  103. -- part name: PENMANSHIP
  104.  
  105.  
  106. -- part 5 (field)
  107. -- low flags: 00
  108. -- high flags: 0002
  109. -- rect: left=60 top=162 right=185 bottom=251
  110. -- title width / last selected line: 0
  111. -- icon id / first selected line: 0 / 0
  112. -- text alignment: 0
  113. -- font id: 3
  114. -- text size: 9
  115. -- style flags: 0
  116. -- line height: 12
  117. -- part name: LANGUAGE
  118.  
  119.  
  120. -- part 6 (field)
  121. -- low flags: 00
  122. -- high flags: 0002
  123. -- rect: left=60 top=135 right=159 bottom=250
  124. -- title width / last selected line: 0
  125. -- icon id / first selected line: 0 / 0
  126. -- text alignment: 0
  127. -- font id: 3
  128. -- text size: 9
  129. -- style flags: 0
  130. -- line height: 12
  131. -- part name: SPELLING
  132.  
  133.  
  134. -- part 7 (field)
  135. -- low flags: 00
  136. -- high flags: 0002
  137. -- rect: left=60 top=110 right=133 bottom=249
  138. -- title width / last selected line: 0
  139. -- icon id / first selected line: 0 / 0
  140. -- text alignment: 0
  141. -- font id: 3
  142. -- text size: 9
  143. -- style flags: 0
  144. -- line height: 12
  145. -- part name: READING
  146.  
  147.  
  148. -- part 11 (field)
  149. -- low flags: 00
  150. -- high flags: 0002
  151. -- rect: left=310 top=98 right=134 bottom=506
  152. -- title width / last selected line: 0
  153. -- icon id / first selected line: 0 / 0
  154. -- text alignment: 0
  155. -- font id: 3
  156. -- text size: 9
  157. -- style flags: 0
  158. -- line height: 12
  159. -- part name: MATH
  160.  
  161.  
  162. -- part 12 (field)
  163. -- low flags: 00
  164. -- high flags: 0002
  165. -- rect: left=314 top=70 right=83 bottom=386
  166. -- title width / last selected line: 0
  167. -- icon id / first selected line: 0 / 0
  168. -- text alignment: 0
  169. -- font id: 3
  170. -- text size: 10
  171. -- style flags: 0
  172. -- line height: 13
  173. -- part name: DATE
  174.  
  175.  
  176. -- part 22 (field)
  177. -- low flags: 00
  178. -- high flags: 0000
  179. -- rect: left=342 top=236 right=278 bottom=497
  180. -- title width / last selected line: 0
  181. -- icon id / first selected line: 0 / 0
  182. -- text alignment: 0
  183. -- font id: 3
  184. -- text size: 12
  185. -- style flags: 0
  186. -- line height: 16
  187. -- part name: 
  188.  
  189.  
  190. -- part 27 (button)
  191. -- low flags: 00
  192. -- high flags: 0000
  193. -- rect: left=387 top=66 right=84 bottom=511
  194. -- title width / last selected line: 0
  195. -- icon id / first selected line: 0 / 0
  196. -- text alignment: 1
  197. -- font id: 0
  198. -- text size: 12
  199. -- style flags: 0
  200. -- line height: 16
  201. -- part name: IMPORT DATA
  202. ----- HyperTalk script -----
  203.  
  204.  
  205. on mouseUp
  206.   Global Id
  207.   Global Subject
  208.   Global N
  209.   Global Data
  210.   Global Subj
  211.   Global Lastname
  212.   Global Firstname
  213.   Global Cardname
  214.   Global Fname
  215.   open file grades
  216.   put FIELD 3 into Cardname
  217.  
  218.   repeat forever
  219.     repeat
  220.       read from file GRADES until return
  221.       beep 1
  222.       if char 1 of it is return then
  223.         repeat while char 1 of it is return
  224.           read from file grades until return
  225.         end repeat
  226.       end if
  227.       if char 1 of it is tab then
  228.         repeat while char 1 of it is tab
  229.           read from file grades until return
  230.         end repeat
  231.       end if
  232.       if char 1 of it is " " then
  233.         repeat while char 1 of it is " "
  234.           read from file grades until return
  235.         end repeat
  236.       end if
  237.       if char 1 of it = "" then
  238.         beep 3
  239.         close file fname
  240.         exit mouseUp
  241.       end if
  242.       put it into data
  243.  
  244.       put offset (tab,data) into num
  245.       put char 1 to (num) of Data into subj
  246.       if subj contains "Read" then put "READING" into n
  247.       if subj contains "Spell" then put "SPELLING" into n
  248.       if subj contains "Language" then put "LANGUAGE" into n
  249.       if subj contains "Penmanship" then put "PENMANSHIP" into n
  250.       if subj contains "Math" then put "MATH" into n
  251.       if subj contains "Science" then put "SCIENCE" into n
  252.       if subj contains "Social Studies" then put "SOCIAL STUDIES" into n
  253.       if subj contains "Health" then put "HEALTH" into n
  254.       else
  255.         put offset(tab,Data) into num --gets num (until tab)
  256.         if num <> 0 then
  257.           delete char 1 to num of data --delete LASTNAME
  258.           put offset(tab,Data) into num --gets num (until tab)
  259.         end if
  260.         if num <> 0 then
  261.           delete char 1 to num of data  -- DELETE FIRSTNAME
  262.           put offset(tab,Data) into num --gets num (until tab)
  263.         end if
  264.         if num <> 0 then
  265.           put char 1 to (num -1 ) of data into id
  266.           delete char 1 to num of data  -- DELETE ID
  267.         end if
  268.       end if
  269.       if Cardname = ID then
  270.         beep 2
  271.         put data into field n
  272.         put the date into field "date"
  273.  
  274.       end if
  275.     end repeat
  276.   end repeat
  277.   close file GRADES
  278. end mouseUp
  279.  
  280.